3 REM *  PGM TITLE : READER'S SURVEY
4 REM *  PGM AUTHOR: DAVE HAMMOND
6 REM *  (C)1986 VIKING TECHNOLOGIES
20 PRINT CHR$(8)CHR$(14)
30 UPTIME=(8*4096)+4: DE=186
40 POKE53280,0: POKE53281,0
100 GOSUB 1000
110 GOSUB 1500
120 GET K$: IF K$="" THEN 120
130 IF K$=CHR$(140) THEN 550
140 IF K$<>CHR$(13) THEN 120
200 GOSUB 1600
210 GET K$: IF K$="" THEN 210
220 IF K$=CHR$(140) THEN 550
230 IF K$<>CHR$(13) THEN 210
300 GOSUB 1700
310 GET K$: IF K$="" THEN 310
320 IF K$=CHR$(140) THEN 550
330 IF K$<>CHR$(13) THEN 310
400 GOSUB 1800
410 ML=23:GOSUB 5000
420 N$=T$:IF T$="" THEN N$="AN ANONYMOUS SOURCE"
430 GOSUB 1900
440 GET K$: IF K$="" THEN 440
450 IF K$=CHR$(140) THEN 550
460 IF K$<>CHR$(13) THEN 440
500 ER=0: GOSUB 2000
505 IF ER=1 THEN GOTO 600
510 GOSUB 3000
520 GET K$: IF K$="" THEN 520
530 IF K$=CHR$(140) THEN 550
540 IF K$<>CHR$(13) THEN 520
550 POKE DE,8: SYS UPTIME
600 GOSUB 1400
610 PRINTSPC(6)" [150] [212]HERE IS A PRINTER ERROR  [155]"
620 PRINTSPC(6)"[210]ECHECK ALL OF YOUR PRINTER"
630 PRINTSPC(5)"CONNECTIONS AND THE PRINTER'S"
640 PRINTSPC(6)"PAPER SUPPLY AND TRY AGAIN."
650 GET K$: IF K$="" THEN 650
660 IF K$=CHR$(140) THEN 550
670 IF K$<>CHR$(13) THEN 650
680 GOSUB 1400
690 PRINTSPC(16)"[208]RINTING"
700 PRINTSPC(12)"[210]EADER'S  [211]URVEY"
710 GOTO 500
990 END
1000 PRINT"[147]";
1010 TL$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1020 BL$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][155]"
1030 M1$="[221]": M2$="                                     [146][221]"
1040 M3$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
1050 C$="[158]": R$="": PRINTTL$
1060 FOR X=1TO23
1070 PRINTM1$;C$;R$;M2$
1080 IF X=5 THEN X=6: C$="": R$="[146]": PRINTM3$
1090 IF X=18 THEN X=19:C$="":R$="":PRINTM3$
1100 NEXT
1200 PRINTBL$
1210 PRINTSPC(10)" [213]P[212]IME [158] [205]AGAZINE'S"
1220 PRINTSPC(12)"[210]EADER'S [211]URVEY"
1230 FOR X=1TO16: PRINT: NEXT
1240 PRINTSPC(7)"[208]RESS [[210][197][212][213][210][206]] TO [195]ONTINUE"
1250 PRINTSPC(4)"[208]RESS [198]8 TO [197]XIT [194]ACK TO [213]P[212]IME[155]"
1290 RETURN
1400 PRINT"";
1410 FOR X=1TO12
1420 PRINT"[221]                                     [221]"
1430 NEXT
1440 PRINT"[155]";
1450 RETURN
1500 GOSUB 1400
1510 PRINTSPC(8)"[213]P[212]IME THE [196]ISK [205]ONTHLY[155]"
1520 PRINTSPC(2)"IS THE [159]PREMIERE[155] MAGAZINE ON A DISK"
1530 PRINTSPC(7)"FOR THE [195]OMMODORE 64/128"
1540 PRINTSPC(5)"[215]E ARE CONSTANTLY WORKING TO"
1550 PRINTSPC(8)"IMPROVE OUR PUBLICATION"
1560 PRINTSPC(11)"AND [217][207][213][155][160]CAN HELP!"
1590 RETURN
1600 GOSUB 1400
1610 PRINTSPC(6)"[217]OU CAN HELP US STAY #1[155] BY"
1620 PRINTSPC(9)"PROVIDING YOUR INPUT:
1630 [153][166]6)"SYS(null)RAISELIST, PRINTLENRITICISMLIST, OPENLENOMMENTSLIST"
1640 [153][166]4)"ATNNYTHING THAT YOU FEEL WILL HELP"
1650 [153][166]7)"US MEET YOUR EXPECTATIONS"
1660 [153][166]14)"WITH (null)P(null)IMELIST"
1690 [142]
1700 [141] 1400
1710 [153][166]3)"PEEKY FOLLOWING THE NEXT FEW PROMPTS"
1720 [153][166]5)"YOUR PRINTER WILL PRINT OUT A"
1730 [153][166]5)"READER'S SURVEY FORM FOR YOU."
1740 [153][166]4)"(null)LEASE TAKE THE TIME TO FILL OUT"
1750 [153][166]3)"THE SURVEY AND RETURN IT USING THE"
1760 [153][166]4)"ENCLOSED BUSINESS REPLY ENVELOPE."
1770 [153][166]4)"(null)E WILL USE THE RESULTS OF THIS"
1780 [153][166]5)"SURVEY TO DETERMINE WHAT IT IS"
1790 [153][166]3)"YOU'VE COME TO EXPECT FROM (null)P(null)IMELIST": [142]
1800 [141] 1400
1810 [153][166]3)"RIGHT$F YOU'D LIKE TO INCLUDE YOUR NAME"
1820 [153][166]10)"ENTER IT NOW, PLEASE."
1830 [153][166]2)"(ATN [(null)VAL(null)(null)(null)(null)] WILL MAKE IT ANONYMOUS)"
1840 [153][166]4)"(null)AME:TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
1850 [153][166]8)"ONON*CMD";
1860 [142]
1900 [141] 5200
1905 [153][166]11)"(null)EADY YOUR PRINTER"
1910 [153][166]7)"(null)RESS SYS[(null)VAL(null)(null)(null)(null)]LIST WHEN READY"
1920 [142]
2000 [159] 4,4:[160]4:S[178]ST
2010 [139] A[179][177]0 [167] ER[178]1: [137] 2490
2015 [159] 4,4,7
2020 [152]4,[199](10)[199](10)
2025 [152]4,""[166]11)"(null)EADER'S (null)URVEY FOR THE LENOMMODORE 64/128    ";
2027 [152]4,"(null)OL. 1 (null)O. 11"
2030 [152]4,[199](10)
2040 [152]4,"     (null)HIS SURVEY IS FROM ";N$;"."
2050 [152]4,[199](10)[199](0)
2100 L$[178]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
2105 [139] DW[178]1 [167] L$[178]"................"
2165 [152]4,"     ***********************************";
2167 [152]4,"***********************************"
2170 BX$[178]"[   ]   TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
2172 [139] DW[178]1 [167] BX$[178]"[   ]   ....................................."
2175 [152]4,[199](10)[199](0)
2180 [152]4,"     (null)LEASE RATE THE FOLLOWING PROGRAMS AND CATEGORIES ON A"
2190 [152]4,"     SCALE BETWEEN 1 AND 10 WITH 10 BEING THE HIGHEST."
2195 [152]4,[199](10)[199](0)
2200 [152]4,"     (null)LANET (null)AIDERS   ";BX$
2205 [152]4,[199](0)
2206 [152]4,"     (null)(null)(null)PEEK(null) LENATN(null)LEN/64    ";BX$
2207 [152]4,[199](0)
2210 [152]4,"     (null)IBRARY 128      ";BX$
2212 [152]4,[199](0)
2214 [152]4,"     LEFT$OME PEEKUDGET 64   ";BX$
2215 [152]4,[199](0)
2220 [152]4,"     PEEKATN(null)RIGHT$LEN-64         ";BX$
2225 [152]4,[199](0)
2230 [152]4,"     ASC(null)(null)(null)LEFT$ LENOMPILER   ";BX$
2235 [152]4,[199](0)
2240 [152]4,"     STR$ISK ATNUTO(null)TAT    ";BX$
2247 [152]4,[199](0)
2250 [152]4,"     (null)ESAR ON (null)RACK   ";BX$
2255 [152]4,[199](0)
2260 [152]4,"     (null)ROGRAMMING W/(null)(null) ";BX$
2265 [152]4,[199](0)
2266 [152]4,"     (null)ANDOM ATNCCESS    ";BX$
2267 [152]4,[199](0)
2270 [152]4,"     (null)EARNING ASC(null)(null)(null)LEFT$   ";BX$
2275 [152]4,[199](0)
2276 [152]4,"     (null)OFTWARE (null)EVIEWS ";BX$:[152]4,[199](0)
2280 [152]4,"     RIGHT$'D RATE THE ISSUE OVERALL  [   ]
2285 PRINT#4,CHR$(0)
2287 PRINT#4,CHR$(0)
2300 PRINT#4,"     [193]NY OTHER COMMENTS OR OBSERVATIONS YOU'D CARE TO MAKE:"
2305 PRINT#4,CHR$(0)
2310 PRINT#4,"     ";L$;L$;L$;L$
2315 PRINT#4,CHR$(0)
2320 PRINT#4,"     ";L$;L$;L$;L$
2325 PRINT#4,CHR$(0)
2326 PRINT#4,"     ";L$;L$;L$;L$
2327 PRINT#4,CHR$(0)
2328 PRINT#4,"     ";L$;L$;L$;L$
2330 PRINT#4,CHR$(12)
2490 CLOSE4: RETURN
3000 GOSUB 1400
3010 PRINTSPC(5)"[212]HANK-YOU FOR TAKING THE TIME"
3020 PRINTSPC(8)"TO PRINT OUT THE SURVEY."
3030 PRINTSPC(3)"[215]E'LL BE WAITING TO HEAR FROM YOU."
3040 PRINTSPC(2)"[208]LEASE SEND THE COMPLETED SURVEY TO"
3050 PRINTSPC(8)"[213]P[212]IME, THE [196]ISK [205]ONTHLY[155]"
3060 PRINTSPC(8)"[208][207] [194]OX 299"
3070 PRINTSPC(8)"[206]EWPORT, [210][201] 02840"
3080 RETURN
5000 T$="": CS$="*[157]": CT=0
5010 GET K$: IF K$="" THEN 5010
5020 K=ASC(K$)
5025 IF K=140 THEN 550
5030 IF K=13 THEN 5100
5040 IF K<>20 THEN 5070
5050 IF CT=0 THEN 5010
5060 CT=CT-1: PRINT" [157][157] [157]";CS$;: T$=LEFT$(T$,CT): GOTO 5010
5070 IF CT=ML THEN 5010
5080 IF (K=32) OR (K=46) THEN 5085
5082 IF (K$>="A") AND (K$<="Z") THEN 5085
5084 IF (K$<"[193]") OR (K$>"[218]") THEN 5010
5085 T$=T$+K$: CT=CT+1: PRINTK$;: IF CT<>24 THEN PRINTCS$;
5090 GOTO 5010
5100 IF T$="" THEN PRINT"[193]NONYMOUS";
5110 PRINT" ": RETURN
5200 PRINTSPC(9)"[155][195]AN YOUR PRINTER PRINT"
5210 PRINTSPC(5)"[195]OMMODORE [199]RAPHIC CHARACTERS?"
5220 PRINTSPC(15)"[158]< [217] / [206] >[155]": PRINT"[145][145][145]";
5230 DW=0
5240 GET K$: IF K$ = "" THEN 5240
5250 IF (K$="Y") OR (K$="[217]") THEN 5280
5255 IF K$=CHR$(140) THEN 550
5260 IF (K$<>"N") AND (K$<>"[206]") THEN 5240
5270 DW=1
5280 FOR X=1TO3: PRINT"                                   ": NEXT
5285 PRINT"[145][145][145][145]";
5290 RETURN